398 REM *         PROGRAM TWO         *
399 REM *     FLOATING POINT DEMO     *
400 DIMN$(80)
410 C1=.5:C2=1:C3=100:PN=1000:NN=-1000
420 PRINT"[147]PRINTER? (Y/N) ";
430 GETA$:IFA$=""THEN430
440 DE=3:IFA$="Y"THENDE=4
450 OPENDE,DE
460 PRINT"[147]GENERATING RANDOM DATA #"
470 FORX=1TO80
480 S=RND(-TI)
490 V=(NN-PN+C2)*RND(1)+PN
500 GOSUB5000
510 PRINT""SPC(24)X
520 N$(X)=N$
530 NEXT
540 A=1:B=4
550 FORY=1TO20
560 PRINT#DE
570 FORI=ATOB
580 PRINT#DE,SPC(9-LEN(N$(I)))N$(I);
590 NEXT
600 A=A+4
610 B=B+4
620 NEXT
630 PRINT#DE:CLOSEDE
640 PRINTSPC(10)"HIT A KEY FOR MORE"
650 GETK$:IFK$=""THEN650
660 GOTO420
4999 REM *** DECIMAL FORMAT ROUTINE ***
5000 N$=STR$(INT(V*C3+C1)/C3)
5010 LO=LEN(N$)
5020 FORJ=2TOLO
5030 IFMID$(N$,J,1)="."THENFR=LO-J:J=LO
5040 NEXT
5050 ONFR+C2GOTO5070,5080,5090
5060 N$=LEFT$(N$,LO-FR+2):GOTO5090
5070 N$=N$+".00":RETURN
5080 N$=N$+"0"
5090 FR=0:RETURN